home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / step lister_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  29 lines
  1. 10 tm = peek(56) * 256 + peek(55)
  2. 15 tm = tm - 242
  3. 20 lsb= (tm/256-int(tm/256)) * 256
  4. 25 msb = int(tm/256)
  5. 30 poke 55,lsb: poke 56,msb
  6. 35 poke 253,lsb+13: poke 254,msb
  7. 40 for i = tm to tm + 241
  8. 50 read a: poke i,a: chk = chk + a: next i
  9. 60 x = 828: for i = x to x + 23
  10. 70 read a: poke i,a: chk = chk + a: next i
  11. 80 if chk <> 33283 then print "data error": end
  12. 90 print "sys" tm "to initiate": new
  13. 100 data162,0,189,60,3,149,115,232,224,23,208,246,0,201,64,240,22,234
  14. 120 data234,234,234,201,58,176,10,201,32,240,7,56,233,48,56,233,208,96
  15. 140 data76,115,0,160,0,185,0,2,201,64,208,243,200,185,0,2,201,0,240,9
  16. 160 data201,45,208,244,169,171,153,0,2,169,1,133,122,160,1,24,185,0,2
  17. 180 data32,107,201,32,19,198,160,0,32,121,0,32,107,201,165,20,5,21,208
  18. 200 data6,169,255,133,20,133,21,160,1,132,198,160,1,132,15,177,95,240
  19. 210 data85,32,44,200,32,215,202,134,1,132,2,173,198,0,240,251,169,0
  20. 240 data141,198,0,166,1,164,2,200,177,95,170,200,177,95,197,21,208,4,228,20
  21. 250 data240,2,176,44,132,73,32,205,221,169,32,164,73,41,127,32,71,203
  22. 270 data201,34,208,6,165,15,73,255,133,15,200,240,17,177,95,208,16
  23. 290 data168,177,95,170,200,177,95,134,95,133,96,208,163,76,116,196,16
  24. 310 data218,201,255,240,214,36,15,48,210,56,233,127,170,132,73,160,255,202
  25. 320 data240,8,200,185,158,192,16,250,48,245,200,185,158,192,48,181,32
  26. 350 data71,203,208,245,0,230,122,208,2,230,123,173,0,2,201,58,240,10
  27. 360 data201,32,240,239,108,253,0
  28. 370 data234,234,234,96
  29.